Cream of the Crop 26/Cream of the Crop 26.iso/bbs/l2100.zip/BOUNTY.REF

Text File | 1997-05-23 | 12KB | 475 lines

;all bounty hunting stuff is done in here

@#BOUNTYLIST
  @show
`r0`c  `r1  Target                      Payoff                   Placed by    `r0

  @do `p21 is 1
  @do `p25 is &totalaccounts
  @do `p25 + 1
   @label readmore
   @if bounty.`p21 exist TRUE then do
     @begin
     @readfile bounty.`p21
`p20
`p22
     @do `s01 is getname `p21
     @do `s02 is getname `p20
     @do `s03 is `p22
     @do pad `s01 20
     @do pad `s03 10
     @show
  `0`s01          `$$`s03 `2             `s02
     @end
   @do `p21 + 1
   @if `p21 < `p25 then goto readmore

  @show

`k


@#DIEHUNT
;customized death for when a bounty hunter kills
  @do X is 27
  @do Y is 7
  @do money / 2
  @do `p02 is `p03 (give 'em max hit points)
  @do `p20 is `p01
  @do `p20 / 5
  @do `p01 - `p20
  @do MAP is 155
  @do dead is 1
  @update_update

  @do talk `4Newsflash:`0`x`n`x`2was`x`bmurdered`x`2by`x`0`s01`2! all
  @do addlog
  `0`n`2 was `bmurdered`2 by bounty hunter `0`s01`2!
  @routine seperate in gametxt.ref

@pauseoff
@show
`r0`c
C▄▄▄█████████▄▄▄
C▄██░░░░█░███████████▄
C█░░░░██████████████████▌
C█░▒▒░████████▐▄██████████
C▄▄C▐░▒▓░████████████▀▀█████
AC▐██
C▀▄█▌    ░▒▓▒░█████▄ ▌█▐█▄
AC█████▄▄▓██C▄▒▓▄
C▄░██▄▄   ▒▓▒░ ██░
AC█░░▓▌▄▀░▄█░████▀▓▌
AC▌▄░█▒▌
C▓▒░██▀▄▄ ▐▄▀▀    ▀▀▓
AC▓▓░▄▓▀▀C▀▀▀▐▒░▀ ▀
C▀▀▀░░█ ░C▄    ▀   ▒▓
AC▓▓░▒   ▀    ▐▌▓▀
C▀░▒▌▐█▄▄    ▄▄▀▀▀▀
AC▀▄▄    ▄█▄▌▌
C▓▀▄▄ ██▀▀▄▄▀▌ ▌ ▐
AC▄▄▀▀████▀▄▄
C█▀████▄▓▓▄█C▓▄ ░▒
AC░█████▀▀
C▀██░▓▓▒▓░▄▄░▓▒░▒▓▀▀ ▀▀▀▀
C▄▄ ▀▄ ▀▀▀▀ ▀▀▀ ▄▀ ▓▒▄
C▄░▒▓▌ ▀ ░▌▓█▐█▀▄
AC░▀ ▄ ▒░█▄
C▄  ▒░░░▀ ▄ ▀ ▄ ▄▄ ▄▄ ▄
AC▀▄░C▀  ▒▄▄▄
C▄▓▓▒░░▒▌▀ ▄██▐█▄▄ ▄▄▄▄▄ ▄▄
AC░▒██▄ ▀▒░▒▀▓
C▄ ▄▀█▒▀▄▓▄▄ ▀▀▄
AC▀███▄▀████ ▄▀▀ ▄▄▌▐
AC▒▄▌▄
C░▒▓█▄▀▀▄▄▄▀▀▀▀▄ ▀▀
AC██▄▒▓▒▄▀▄▀▀ ▄
AC▀▀▀▄▄▀▄▄█▓▒░

                     `%You have made an error, s&boy.

`k
 @if `v03 is 0 then do
   @begin
 ;rules.ref file says unlimited deaths not allowed, so we will boot them
 ;till tomorrow

 ;take them off the map
  @do map is 1
   @halt
   @end

 @pauseon

 @do dead is 0

 @if `p07 less 0 then do
 @begin
 @show
`r0`c`%  `r1IT FEELS KINDA WARM IN HERE?`r0

  `4You open your eyes.

`k  `4There are naked screaming people all around you.  A little boy with
  a ghastly face begins to gnaw on your leg.

`k  `6"Din, leave the newcomer alone.  S&he isn't staying." `4a slow voice that
  can only be described as an abomination dolefully states.

`k  `2You feel yourself floating away... faster and faster.
 @end

 @if `p07 more -1 then do
 @begin
 @show
`r0`c`%  `r1APPARENTLY DEATH ISN'T THE END.`r0

  `2You open your eyes.

`k  `2You are lying on a table of solid rock in a marble room.  Hundreds of
  soft voices are murmuring all around you, but you see no one.

`k  `%"Send s&him back." `2a voice whispers, this one louder than the others.

`k  `2You feel yourself floating away... faster and faster.

`k
 @end


@show
`c  `r1`%AWAKENING.`r0

  `0"Can you hear me, `n?" `2a stressed voice shouts.

  `$"Yeah.  Christ mom, lemmie up, I'm fine." `2you assure your mother.

  `0"You're alive!! The elders brought your body here yesterday, you must
  have fainted out there." `2your mother shouts, tears of joy streaming down
  her wrinkled face.

  `$"Ok, ok - nice little happy reunion and all that, but I gotta hit the
  road now. Buhbye." `2you tell her.  Afterall, you need to make the most of
  this new lease on life.

  `2You lose `4half`2 the gold you were carrying and `4`p20`2 experience.

`k
  @loadmap map
  @drawmap
  @update


@#HUNTERS
;called from genran, it's the .ref called when someone meets up with a
;bounty hunter
@do `p20 random 5 1
@if `p20 is 1 then `s01 is Job
@if `p20 is 2 then `s01 is Kasabo
@if `p20 is 3 then `s01 is Year
@if `p20 is 4 then `s01 is Sedahk
@if `p20 is 5 then `s01 is Eudor


  @if bounty.&playernum exist false then do
    @begin
    @do saybar
Bounty hunter `s01 and his men pass close by.
    @closescript
    @end

    @readfile bounty.&playernum
`p23
`p24
@do `v01 is 1
@show
@do write
`r1
@clearblock 21 21
@do move 3 21
@do write
`r0  `2You are suddenly surounded.  Press ENTER to continue...
@do readspecial `s02 `x



  @show
`r0`c  `r1  A deal, perhaps?  `r0

  `2It is `s01 and his men.  Looks like you are screwed.

  `0"There is a price on your head, friend.  A price of `$`$`p24`0."

@do write
`x`x
@choice
I know this, `s01.  I will pay you the same amount to pass me by.
Please don't hurt me!  I'll do anything!
@show
`\
@if responce is 1 then do
  @begin
  @do `p25 is `p24
  @do `p25 - 1
  @if money > `p25 then do
    @begin
    @do money - `p24
    @show
  `0"Very well.  But next time I may not be so friendly.. I do have a
  reputation to uphold!" `2`s01 grunts as he takes your money.

`k
   @drawmap
   @update
   @closescript
    @end
@show
  `2You reach into your pockets and pull out some.. lint.

  @end
;they might get killed here
@show
  `0"Kill him!" `2`s01 roars.

@do `p26 random 2 1
@if `p26 is 1 then do
 @begin
 ;dies
 @do delete bounty.&playernum
   @writefile mail\mail`p23.dat
  `0Bounty hunter `s01 reports:
`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`0  `n`2 has been `4killed`2.  Good doing business with you.

 @show
  `2You are unable to escape.  You are still alive when `s01 begins to
  remove his price - your head.

`k
 @run diehunt
 @end
@show
  `2You hack your way through the crowd, you are a mighty warrior!

`k  `%YOU ESCAPE.  `2But this may happen again - until your bounty is
  paid off in FlagCity - or you are killed.

`k
@drawmap
@update

@#BOUNTY
;The Bounty Hunting Office
@OFFMAP
@DO MOVEBACK
@label hunt
@DO `v01 is 1
@SHOW
`r0`c  `r1  Bounty Office  `r0

  `2A helmeted man with a crossbow slung to his side stands behind the
  counter.  He looks looks well seasoned and speaks with a raspy voice,
  `0"Good afternoon, how may we ... help you?"`2

`2  You see the word `0'Nickabrick' `2carved into his arm.

@DO WRITE
`x`x
@CHOICE
View bounty list
Place a bounty
Pay off your own bounty
Ask for advice
Check out their weapons
Conduct 'business' with Nickabrick
Leave, quick!!
@if response is 6 then do
  @begin
  @do `p20 is 3
  @run getquest in quest.ref
  @end


@if responce is 1 then do
  @begin
  @routine bountylist
@do goto hunt
@end

@IF RESPONSE IS 2 THEN DO
  @BEGIN
  @SHOW
`r0`c  `r1  Playing dirty  `r0
`\  `$"I need to make someone's life hard, can you help?,"`2 you say.

  `0"Of course... who is our lucky winner?"
  @chooseplayer `p22
  @if `p22 is 0 then do
    @begin
    @show
`k
    @do goto hunt
    @end
  @if `p22 is &playernum then do
    @begin
    @show
  `0"Ha, I like the concept!" `2Nickabrick laughs.  You must have amused him
  in some small way.`\`\`k
    @do goto hunt
    @end
   @show
  `0"Of course.  How much money are you willing to place?"`2 he asks calmly.

  @do write
`x`x
  @do readnum 30
  @do `p20 is `v40
  @if `p20 < 1000 then do
    @begin
    @show
`\`\  `0"Minimum bounty is `$1000`0, friend."
`\`k
    @do goto hunt
    @end
  @show

  @if money < `p20 then do
     @begin
     @show
`\  `2You don't have that much gold on you... Better hit the bank.

`k
     @do goto hunt
     @end
  @do money - `p20
@show


  @if bounty.`p22 exist true then do
    @begin
    @readfile bounty.`p22
`p23
`p24
    @if `p23 not &playernum then do
      @begin
      @if `p24 > `p20 then do
        @begin
        @show
  `0"There is a problem.  Someone has already placed a bounty on that
  person..  Of course, we will let you do anything for a price.  Try an
  amount that is at least `$$`p24 `0and we'll think about it."
`\`k
        @do goto hunt
        @end
      @end
    @end

  @do `s05 is getname `p22
  @do delete bounty.`p22
  @writefile bounty.`p22
&playernum
`p20
    @do addlog
  `0`n `2has set a bounty of `$`p20 `2to kill `0`s05`2!
     @routine seperate in gametxt.ref

  @show
  `0"Alright.  The bounty has been placed... The only way to get out of it
  is if `s05 gets in here and pays it off... or death of course."

`k
  @do goto hunt
  @END

@IF RESPONSE IS 3 THEN DO
  @BEGIN
  @SHOW
`r0`c  `r1  `%Cutting a deal  `r0

  `$"Someone hates me, but I have more money than them.  Please stop
  chasing me."`2 you state.

@if bounty.&playernum exist false then do
  @begin
  @show
  `0"Huh?  You are not marked by us.  Not yet."

  `2You turn bright red.  `$"I, I uh, knew that..."
`\`k
  @do goto hunt
  @end
  @readfile bounty.&playernum
`p20
`p21
  @show
  `0"It will cost you `$$`p21 `0to clear your name.  Can you pay it?"

  @do `v01 is 1
  @do write
`x`x
   @choice
Yes, I can  `2(you have `0`$$&money`2)
I cannot pay it
@if responce is 1 then do
  @begin
  @if money < `p21 then do
    @begin
    @do money / 2
    @show
`\`\  `0"Very well, where is the gold?"`2

`2  You search your pockets desperately.  A few moments later you are
  outside with quite a bruise and some money missing.

`k
    @drawmap
    @update
    @closescript
    @end

    @do money - `p21
    @do delete bounty.&playernum
    @do addlog
  `0`n `2convinces the Bounty Hunter Guild to stop chasing s&him.
     @routine seperate in gametxt.ref
@show
`\`\  `0"Very well, now you're no good to me dead."`2
`\`k
  @do goto hunt
  @end
@do goto hunt
  @END
@IF RESPONSE IS 4 THEN DO
  @BEGIN
  @SHOW
`\`\  `$"Excuse me, could you give me some advice?"`2 you ask.

`k  `0"Money makes the world go around.  And if you have enough when we
  catch up with you it just might save ya."`2 he offers.
`\`k
@do goto hunt
  @END
@IF RESPONSE IS 5 THEN DO
@Begin
@Show
`\`\  `$"I'm kinda in the business myself," `2you say.  `$"What tools do you
  recommend?"  `2He smiles, `0"These have helped many a hunter..."
  `2You review your choices.

`k
@show
`r0`c                         `r1 `%Bounty Hunting weapons


@buymanager
4
12
38
49
40
@do goto hunt
@End
@drawmap
@update
@end